$PBExportHeader$w_borrar_certificados_pendientes.srw
$PBExportComments$CER - Borrado de los certificados pedidos por AG.
forward
global type w_borrar_certificados_pendientes from w_filtros_busqueda
end type
end forward

global type w_borrar_certificados_pendientes from w_filtros_busqueda
integer width = 1961
integer height = 1212
end type
global w_borrar_certificados_pendientes w_borrar_certificados_pendientes

type variables

end variables

on w_borrar_certificados_pendientes.create
call super::create
end on

on w_borrar_certificados_pendientes.destroy
call super::destroy
end on

event ue_leer_parametros;call super::ue_leer_parametros;// permito multiple seleccion para borrar.
dw_1.uof_marcar_seleccion(2)

end event

event activate;call super::activate;//m_mdi.m_operaciones.m_borrar.Enabled = TRUE

end event

event deactivate;call super::deactivate;m_mdi.m_operaciones.m_borrar.Enabled = FALSE

end event

event ue_iniciar;call super::ue_iniciar;// estas opcion la quiero solamente habilitadas despues del procesar!!!
m_mdi.m_operaciones.m_procesar.Enabled = TRUE
m_mdi.m_operaciones.m_borrar.Enabled = FALSE


end event

event ue_borrar();/* Sobreescribo el script del ancestro */
/* Borro las filas seleccionadas */
Integer iAux


If This.ib_grabar Then
	If dw_1.uof_SelectedCount() > 0 Then
		For iAux = dw_1.RowCount() to 1 step -1
			// Si esta seleccionada la borro..
			IF dw_1.IsSelected(iAux) Then
				If dw_1.DeleteRow(iAux) <> 1 Then 
					This.ib_grabar = FALSE
					Exit // Salgo del for...
				End If
			End if 
		Next
	End if
End If

If This.ib_grabar Then
	If dw_1.Update(TRUE, TRUE) <> 1 Then This.ib_grabar = FALSE
End If

If This.ib_grabar Then
	/* No se cierra al borrar un registro de la lista */
	This.ib_cerrar_al_grabar = FALSE
Else
	dw_1.RowsMove(1, dw_1.DeletedCount(), Delete!, dw_1, iAux, Primary!)
	dw_1.SetRow(iAux)
End If
end event

type cb_mostrar_filtros from w_filtros_busqueda`cb_mostrar_filtros within w_borrar_certificados_pendientes
end type

